home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL1.LZH / TSIN.PAS < prev    next >
Pascal/Delphi Source File  |  1984-07-04  |  340b  |  17 lines
  1. program Tsin;
  2. { test range of sin function
  3. { AUTHOR: Alan Miller
  4. {         Taken from 'Pascal Programs for Scientists and Engineers'
  5. { Entered by Danny Cavasos     June 1984}
  6. var
  7.   i:integer;
  8.   x:real;
  9. begin
  10.   x:=1.0e-4/0.3;
  11.   for i:=1 to 40 do
  12.     begin
  13.       writeln('x=',x,' sin=',sin(x));
  14.       x:=0.1*x;
  15.     end;
  16. end.
  17.